************************************************************* 

* * 

* CP/M vers 2.2 Cold Start Loader. * 



* The following routines will boot CP/M from the Disk 

* Jockey 2D Rev. B, or from the Disk Jockey Hard disk 

* controller. 
* 



* 
* 
* 

* 
* 
* 
* 



Floppy boot: 

The cold boot loader (track 0, sector 1) is loaded into 
RAM on the controller by the cold boot routine in the 
firmware. This cold boot loader will start loading the 
CCP from track 0, sector 5 and will finish up with the 
last part of the CBIOS on track 1 sector 7. 



* During a warm boot sectors 1, 2, and part of 3 will be 

* loaded from track 1. Track loading is unaffected. 
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track 































sector 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



sysgen 

900 
980 
a00 
a80 
b00 
b80 

C00 

c80 

d00 

d80 

e00 

e80 

f00 

f80 

1000 

1080 

1100 

1180 

1200 

1280 

1300 

1380 

1400 

1480 

1500 

1580 



load order 



ff00 



9500 
9580 
9600 
9680 
9700 
9780 
9800 
9880 
9900 
9980 
9a00 
9a80 
9b00 
9b80 
9c:<o 
9c80 
9d00 
9d80 
9e00 
9e80 
9f00 
9f80 



2 

13 

3 
14 

4 
15 

5 
16 

6 
17 

7 
18 

8 
19 

9 
20 
10 
21 
11 
22 
12 
23 



Name 

Boot loader 
Unused 



CCP 



BDOS 



Track 1 is 
1024 bytes 

1 
1 
1 

1 
1 
1 

1 
1 



recorded in double 
per sector. 



1 
2 
3 
4 
5 
6 
7 
8 



density format. There are 



CBIOS ((§ ab00h) 



1600 


a000 


4 


la00 


a400 


1 


le00 


a800 


5 


2200 


ac00 


2 


2600 


b000 


6 


2a00 


b400 


3 


2e00 


b800 


7 


3200 


be 00 





Unused 



Note that the interleave sequences for loading tracks and 
are different. This difference was designed so that the 
boot sequence could be done in 4 disk revolutions since the 
2D Mod. B can not load consecutive sectors off of the disk. 

Three scare sectors (track 0. sectors 2 to 4) have been 
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* provided for a more advanced boot loader at a later date. 
* 
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Hard boot (M10, M20, M26): 

The cold boot loader (track 0, sector 1) is loaded into 
RAM at either 0100h or the 2DB's RAM depending on whether 
this loader is assembled with a 2DB or not. This cold 
boot loader will start loading the CCP from trade 0, 
sector 2 and will finish up with the last part of the 
CBIOS on track sector 21. 



track 




























sector 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



sysgen 

900 
b00 
d00 
f00 

1100 

1300 
1500 
1700 
1900 
lb00 
ld00 
lf00 
2100 
2300 
2500 
2700 
2900 
2b00 
2d00 
2f00 
3000 



load order 



fc00 
9500 
9700 
9900 
9b00 
9d00 
9f00 
al00 
a300 
a500 
a700 
a900 
ab00 
ad00 
af00 
bl00 
b300 
b500 
b700 
b900 



1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

2 



Name 

Cold boot 
CCP 



BDOS 



CBIOS 



Partial load 
Unused 



The warm boot load sequence starts at track 0, sector 2 
and goes straight through to sector 12. There is still 
plenty of room left in this loader for more advanced 
things like sector interleaving although this is hardly 
necessary on a hard disk. 
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***************************************************************** 



rnsize 

bias 

ccp 

bios 

cboot 



equ 
equ 
equ 
equ 
equ 



loaddr equ 
retries equ 



48 ; Memory size of target CP/M 

(msize-20)*1024 ;Memory offset from 20k system 

2500h+bias ; Console command processor 

ccp+1600h ; CBIOS address 

bios ;Cold boot address for CP/M 

ccp ;Load address for floppy 

10 ;Maximum # of disk retries 



***************************************************************** 



* The following equates set up the relationship between the 

* 2D floppies and the Hard Disk Controllers. 



* 

„„ _-.„ , ^„„ „.,._ „.w ,_,.„ ^j,.^^ V-V^IWO. W^^.^0. ^ • * 

* * 

***************************************************************** 



first 



equ 



maxhd equ 1 
max flop equ 4 



= Floppies are A-D drives and 

Hard Disk are E-P 

1 = Hard Disks are A-L drives and 

Floppies are M-P 
Set to number of hard disks 
Set to number of floppies 



***************************************************************** 
* * 



* The following equates are for the Diskus Hard disk if wanted. * 

* " ■ * 

***************************************************************** 





if 


(maxhd ne 0) and 


hdorg 


equ 


50h 




hdstat 


equ 


hdorg 




hdcntl 


equ 


hdorg 




hddata 


equ 


hdorg+3 




hdf unc 


equ 


hdorg+2 




hdcmnd 


equ 


hdorg+1 




hdreslt 


equ 


hdorg+1 




retry 


equ 


2 




tkz 


equ 


1 




opdone 


equ 


2 




complt 


equ 


4 




tmout 


equ 


8 




wf ault 


equ 


10h 




drvrdy 


equ 


20h 




indx 


equ 


40h 




pstep 


equ 


4 




nstep 


equ 


0fbh 




hdrlen 


equ 


4 




secln 


equ 


512 




wenabl 


equ 


0fh 




wreset 


equ 


0bh 




scenbl 


equ 


5 




dskclk 


equ 


7 




rndir 


equ 


0f7h 




null 


equ 


0fch 




idbuff 


equ 







isbuf f 


equ 


8 




rsect 


equ 


1 




wsect 


equ 
endif 


5 





first ;Want Hard Disk included ? 

Hard Disk Controller 

Hard Disk Status 

Hard Disk Control 

Hard Disk Data 

Hard Disk Function 

Hard Disk Command 

Hard Disk Result 

Retry bit of result 

Track zero bit of status 

Operaction done bit of status 

Complete bit of status 

Time out bit of status 

Write fault bit of status 

Drive ready bit of status 

Index bit of status 

Step bit of function 

Step bit mask of function 

Sector header length 

Sector data length 

Write enable 

Write reset of function 

Controller control 

Disk clock for control 

Direction mask for function 

Null command 

Initialize data command 

Initialize header command 

Read sector command 

Write sector command 



***************************************************************** 

* * 

* The following equates are for the Disk Jockey 2D/B if wanted. * 

* * 
***************************************************************** 





if 


max flop ne 


origin 


equ 


0f800h 


djram 


equ 


origin+400h 


tkzero 


equ 


origin+9h 


trkset 


equ 


origin+0ch 


setsec 


equ 


origin+0fH 


setdma 


equ 


origin+12h 


dread 


equ 


origin+15h 


dmast 


equ 


origin+24h 


Status 


equ 


origin+27h 


dskerr 


equ 


origin+2ah 


setden 


equ 
endif 


origin+2dh 


if 


first 






if 


max flop ne 


boot 


equ 
else 


djram 


boot 


equ 

endif 

else 


0100h 


boot 


equ 


djram+0300h 




endif 





;Orgin of DJ 2D Mod B PROM 

;Disk Jockey 2D Mod B routines 

; Track seek 

;Set track 

;Set sector 

;Set DMA address 

;Read sector 

;Get DMA address 

;Disk status 

;Flash error light 

;Set density 



;Define start address if hard disk 

;If floppy is there then use its RAM 

; Otherwise start at 0100h 

; Define start address if floppy 
; Upper quarter of floppy RAM 



offset equ 



900h-boot 



;DDT offset 



***************************************************************** 

* * 

* Cold Boot loader for Discus M10, M20, or M26 . * 

* * 

***************************************************************** 



; first = 1 is hard disk 



;Set up stack at end of this sector 
;B = sector count, C = sector # 
;Load sector 20 into CCP 
; Destination of move 
; Source of move 

;Get a byte of source 

;Move it 

;Bump destination 

;Burap source 

;A11 done with this page ? 

; Initial DMA address 

;B = sector count, C = sector # 

;Go to CP/M 

;Save sector and count 



;Get DMA address (self modifying) 

; Storage for previous DMA address 

; Offset to new DMA address 

;Add in offset, HL = new DMA address 

;Save new DMA address 

; Attempt a read 

; Recover sector number and count 

; B = count, C = number 

; Update sector count 

;A11 done ? 

; Continue reading 

***************************************************************** 

* * 

* Rdhd does the actual read from the controller, the DMA * 

* address and sectoi # have already been set up. 



if 


first 


org 


boot 


boothd lxi 


sp,cstkhd 


lxi 


b,l*100h+20 


call 


clodhd 


lxi 


h,ccp+le00h 


lxi 


d,ccp 


mvi 


c, 


cmovhd Idax 


d 


mov 


m, a 


inx 


h 


inx 


d 


dcr 


c 


jnz 


cmovhd 


lxi 


h,ccp-200h 


shld 


cdmahd 


lxi 


b,18*100h+2 


call 


clodhd 


jmp 


cboot 


clodhd push 


b 


mov 


a,c 


sta 


hdsec 


lxi 


h,ccp-200h 


cdmahd equ 


$-2 


lxi 


d,200h 


dad 


d 


shld 


cdmahd 


call 


crdhd 


pop 


b 


dcr 


b 


rz 




inr 


c 


jmp 


clodhd 



* * 

***************************************************************** 



crdhd 


lxi 


b, retri 


crhd 


push 


b 




call 


hdread 




pop 


b 




rnc 






dcr 


b 




jnz 


crhd 




jmp 


$ 


hdread 


call 

re 


hdprep 




mvi 


a.rsect 



b, retries*100h+l ;Maximum # of attempts 

;Save error count 
; Attempt the read 
; Restore the error count 
; Return if no error 
; Update error count 
;Try again if not to many errors 
; Dynamic error halt 



; Prepare the sector header image 

; Error exit 

:Read sector command 



out 


hdcmnd 


call 


process 


re 




xra 


a 


out 


hdcmnd 


mvi 


b,secln/4 


In Id 


cdmahd 


in 


hddata 


in 


hddata 


rtloop in 


hddata 


mov 


m,a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m,a 


inx 


h 


dcr 


b 


jnz 


rtloop 


ret 




process in 


hdstat 


mov 


b,a 


ani 


opdone 


jz 


process 


mvi 


a,dskclk 


out 


hdcntl 


in 


hdstat 


ani 


tmout 


stc 




rnz 




in 


hdreslt 


ani 


retry 


stc 




rnz 




xra 


a 


ret 




hdprep in 


hdstat 


ani 


drvrdy 


stc 




rnz 




mvi 


a,isbuf f 


out 


hdcmnd 


mvi 


a, null 


out 


hdfunc 


xra 


a 


out 


hddata 


out 


hddata 


mvi 


a,0 


hdsec equ 


?-l 


out 


hddata 


mvi 


a,80h 


out 


hddata 


mvi 


a,dskclk 


out 


hdcntl 


mvi 


a,wenabl 


out 


hdcntl 


ret 





; Process the read 

; Error exit 

; Pointer to data buffer 

; Number of bytes to read 
;Get destination of data 
;Two dummy data bytes 

•Move four bytes 
• Byte one 

; Byte two 



;Byte three 

; Byte four 

; update byte count 

;Wait for command to finish 

;Turn on Disk Clock 
; Timed out ? 

;Any retries ? 
;No error exit 
;Is Drive ready ? 

; Initialize pointer to header buffer 

;Select drive A 

;Form head byte 
;Form track byte 
;Form sector byte 

;Form Key 

;Turn on Disk clock 

;Write enable on 



org 



boothd+200h-2 



cstkhd equ 
dw 

else 



boothd 



; first = is floppy disk 



*************************** * * ************************************ 

* * 

* Cold boot loader for the Disk Jockey 2D Revision B controller * 

* * 
***************************************************************** 



org 



boot 



t0boot 


ravi 


a, 5-2 


newsec 


equ 


;?-l 




inr 


a 




inr 


a 




cpi 


27 


trksiz 


equ 


$-1 




jc 


nowrap 




jnz 


tlboot 


exit 


equ 


$-2 




sui 


27-6 


backup 


equ 


?-l 




lxi 


h, loaddr-80h 


nxtdma 


equ 


$-2 




shld 


newdma 


nowrap 


sta 


newsec 




mov 


c,a 




call 


setsec 




lxi 


h,loaddr-100h 


newdma 


equ 


$-2 




lxi 


d,100h 


secsiz 


equ 


$-2 




dad 


d 


nowrp 


shld 


newdma 




mov 


b,h 




mov 


c,l 




call 


setdma 




lxi 


b,retries*100h 


nxtrty 


equ 


$-2 


fread 


push 


b 




call 


trkset 




call 


dread 




pop 


b 




jnc 


t0boot 




dcr 


b 




jnz 


fread 




jmp 


dskerr 


tlboot 


lxi 


h, cboot 




shld 


exit 




mvi 


c, 1 




call 


setden 




xra 


a 




sta 


newsec 




mvi 


a, 8 




sta 


trksiz 




dcr 


a 




sta 


backup 




lxi 


h,loaddr+0700h 




shld 


newdma 




lxi 


h,loaddr+0300h 




shld 


nxtdma 




lxi 


h,2048 




shld 


secsiz 



?First sector - 2 

;Update sector # 

;Size of track in sectors +■ 1 

;Skip if not at end of track 
;Done with this track 

;Back up to sector 6 

;tMemory address of sector - 100h 

; Save the updated sector # 

;Set up the sector 

;Memory address of sector - 100h 

; Update DMA address 

;Save the updated DMA address 

?Set up the new DMA address 
i; Maximum # of errors, track # 

;Set up the proper track 
;Read the sector 

.•Continue if no error 

;Keep trying if error 

;Too many errors, flash the light 

;We jump to cboot next time 

; Select double density 

; First sector - 2 

;Size of (logical) track + 1 

; Number of sectors to back up 

;DMA start address for first revolution - 2048 

;DMA start address for second revolution - 2048 

;Difference between DMA addresses 



Ixi h, retries* 100h+l; Maximum # of errors, track # 

shld nxtrty 

jmp t0boot ;Go load in track 1 

endif 

end 



